home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / cat / fredprot.d < prev    next >
Text File  |  1997-10-26  |  2KB  |  68 lines
  1. DEFINITION MODULE FredProtokoll;
  2.  
  3. (*
  4.  
  5. XAcc und AV/VA-Protokoll in Modula-2
  6.  
  7. Autor : Johannes G”ttker-Schnetmann
  8.  
  9. Last Change : 26.02.1991
  10.  
  11. *)
  12.  
  13. FROM SYSTEM IMPORT ADDRESS;
  14. FROM CatTypes IMPORT Str255Ptr;
  15.  
  16. TYPE React        = (rNoproto, rNone, rChar, rText, rStart, rOpen, rSeMess);
  17.  
  18. (* Das muž der WatchDog bekommen, jetzt kommt etwas mehr
  19. TYPE WatchDogMsg = RECORD
  20.        PtrGruppe,
  21.        PtrName,
  22.        PtrBetreff,
  23.        PtrText    : ADDRESS;
  24.        TextLength : CARDINAL
  25.      END;
  26. *)
  27.  
  28. PROCEDURE IsProtokoll(mess : ADDRESS;
  29.                      VAR kReturn : INTEGER; VAR mokState : BITSET;
  30.                      VAR pName, pCmd : Str255Ptr):React;
  31.  
  32.  
  33. PROCEDURE SendProgstart(error : BOOLEAN);
  34. (* dem Acc mitteilen, ob der Programmstart geklappt hat, not yet implementet *)
  35.  
  36. PROCEDURE SendAcknowledge (apId : INTEGER; succ: BOOLEAN);
  37. (* dem Acc mitteilen, das ACC_TEXT oder ACC_KEY geklappt haben *)
  38.  
  39. PROCEDURE SendOpenwind (id : INTEGER; path, name : ADDRESS);
  40. (* einer anderen Applikation sagen, das sie ein Fenster ”ffnen soll
  41.  * ist fr den Fall, das CAT oder Eddix schon ge”ffnet sind, dann wird 
  42.  * diese Message verschickt.
  43.  *)
  44.  
  45. PROCEDURE SendHelp (VAR str : ARRAY OF CHAR);
  46. (* Untersttzung fr PC-Help Protokoll. Sendet einmal Help aus. *)
  47.  
  48. PROCEDURE SendTerminate();
  49. (* Bei anderen APPs abmelden *)
  50.  
  51. PROCEDURE ProtoInit ();
  52. (* XACC-Initialisierung *)
  53.  
  54. PROCEDURE SeProtoInit ();
  55. (* Initialisierung fr SeProto *)
  56.  
  57. PROCEDURE SendEsMessage (mess: INTEGER; adr: ADDRESS);
  58. (* Schickt eine ES-Nachricht an den Teilnehmer *)
  59.  
  60. PROCEDURE SEProtoActiv (): BOOLEAN;
  61. (* Gibt zurck, ob das SE-Protokoll aktiv ist
  62.  *)
  63.  
  64. PROCEDURE SendPathUpdate (REF path: ARRAY OF CHAR);
  65. (* Schickt ein AV_PATH_UPDATE an den AV_SERVER *)
  66.  
  67. END FredProtokoll.
  68.